home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / bg_4 / bg_4bdm.bas < prev   
BASIC Source File  |  1999-06-15  |  2KB  |  132 lines
  1. /*==== -: "BG_4_B.SP" ﾃﾞﾓﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,k,pl,ky,pb_n=0
  3. int sc0,sc1,sc2,sc3
  4. dim char dat(255)
  5.  
  6. /*---- -: screen init. :- ----
  7. screen 0,1,1,1 : window(0,0,511,511)
  8. vpage(&B0000) : apage(0)
  9. sp_init() : sp_disp(0)
  10. print "しばらくお待ちください。"
  11. spfile_def("BG_4B.SP",0)
  12. palfile_def("BG_4B.PAL",1)
  13. for i=0 to 15
  14.     palet(i,sp_color(i,, 1))
  15. next
  16.  
  17. /*---- -: ｵｸ ｶﾗ ｼﾞｭﾝﾆ :- ----
  18. apage(3)
  19. fill(  0,  0,511,127,  0)
  20.  
  21. /* ｲﾁﾊﾞﾝ ｵｸ
  22. for i=0 to 3
  23. for j=0 to 7
  24.     sp_pat(&H00+i*16+j,dat,1) : PAT_CNV()
  25.     put(j*16,i*16,j*16+15,i*16+15,dat)
  26. next
  27. next
  28.  
  29. for i=0 to 3
  30. for j=0 to 7
  31.     sp_pat(&H40+i*16+j,dat,1) : PAT_CNV()
  32.     put(j*16,176+i*16,j*16+15,176+i*16+15,dat)
  33. next
  34. next
  35. fill(0,240,127,255,1)
  36.  
  37. /* ｺﾋﾟｰ
  38. for i=0 to 127
  39.     get(  i,  0,  i,255,dat)
  40.     for j=0 to 3
  41.         put(j*128+i,  0,j*128+i,255,dat)
  42.     next
  43. next
  44.  
  45. /*----------------
  46. apage(2)
  47.  
  48. for i=0 to 1
  49. for j=0 to 3
  50.     sp_pat(&H4C+i*16+j,dat,1) : PAT_CNV()
  51.     put(j*16,216+i*16,j*16+15,216+i*16+15,dat)
  52.     sp_pat(&H6C+i*16+j,dat,1) : PAT_CNV()
  53.     put(64+j*16,216+i*16,64+j*16+15,216+i*16+15,dat)
  54. next
  55. next
  56. fill(0,248,127,255,2)
  57.  
  58. /* ｺﾋﾟｰ
  59. for i=0 to 127
  60.     get(  i,  0,  i,255,dat)
  61.     for j=0 to 3
  62.         put(j*128+i,  0,j*128+i,255,dat)
  63.     next
  64. next
  65.  
  66. /*----------------
  67. apage(1)
  68.  
  69. for i=0 to 1
  70. for j=0 to 3
  71.     sp_pat(&H08+i*16+j,dat,1) : PAT_CNV()
  72.     put(j*16,224+i*16,j*16+15,224+i*16+15,dat)
  73.     sp_pat(&H28+i*16+j,dat,1) : PAT_CNV()
  74.     put(64+j*16,224+i*16,64+j*16+15,224+i*16+15,dat)
  75. next
  76. next
  77.  
  78. /* ｺﾋﾟｰ
  79. for i=0 to 127
  80.     get(  i,  0,  i,255,dat)
  81.     for j=0 to 3
  82.         put(j*128+i,  0,j*128+i,255,dat)
  83.     next
  84. next
  85.  
  86. /*----------------
  87. apage(0)
  88.  
  89. /*---- -: ｽｸﾛｰﾙ ｶｲｼ :- ----
  90. cls
  91. vpage(&B1111)
  92. color 15
  93. print " SPACE:ﾊﾟﾚｯﾄﾁｪﾝｼﾞ   ESC :ｼｭｳﾘｮｳ "
  94. color 0
  95. while 1
  96.     sc0=sc0+1 and 1023
  97.     sc1=sc1+1 and 2047
  98.     sc2=sc2+1 and 4095
  99.     sc3=sc3+1 and 8191
  100.  
  101.     ky=asc(inkey$(0))
  102.     if ky = &H1B then break
  103.     if ky = &H20 then PAL_CH()
  104.  
  105.     v_disp()
  106.     home(0,sc0 shr 1,0)
  107.     home(1,sc1 shr 2,0)
  108.     home(2,sc2 shr 3,0)
  109.     home(3,sc3 shr 4,0)
  110. endwhile
  111.  
  112. end
  113.  
  114. /*---- -: "put" ﾖｳ ﾃﾞｰﾀ ﾉ ﾍﾝｶﾝ :- ----
  115. func PAT_CNV()
  116.     int i
  117.  
  118.     for i=0 to 127
  119.         dat(i)=(dat(i shl 1) shl 4)+dat((i shl 1)+1)
  120.     next
  121. endfunc
  122.  
  123. /*---- -: palet change :- ----
  124. func PAL_CH()
  125.     int i
  126.  
  127.     pb_n=(pb_n+1) and 3
  128.     for i=0 to 15
  129.         palet(i,sp_color(i,,1+pb_n))
  130.     next
  131. endfunc
  132.